home *** CD-ROM | disk | FTP | other *** search
/ Into That Dark Night / Into That Dark Night.iso / pc / YadVashem / Database / BKSHELF.dxr / 00007_Click on Arch seealso..ls < prev    next >
Encoding:
Text File  |  2003-03-14  |  331 b   |  13 lines
  1. global gBookShelfList, gCameFrom
  2.  
  3. on mouseUp
  4.   set whatLine to the mouseLine
  5.   if (whatLine > 0) and (whatLine <= count(gBookShelfList)) then
  6.     set whatItem to getAt(gBookShelfList, whatLine)
  7.     set gCameFrom to #pres
  8.     showDBItem(whatItem)
  9.     set the modal of window "bkshelf" to 0
  10.     forget(window "bkshelf")
  11.   end if
  12. end
  13.